home *** CD-ROM | disk | FTP | other *** search
/ CGI How-To / CGI HOW-TO.iso / chap2 / 2_1 / test_env.pl < prev    next >
Encoding:
Perl Script  |  1996-06-15  |  785 b   |  28 lines
  1. #!/bin/perl
  2. print "Content-type: text/html\n\n";
  3.  
  4. print <<EOH;
  5. <HTML>
  6. <HEAD><TITLE>CGI Script How-To: Test Script</TITLE></HEAD>
  7. <BODY>
  8. EOH
  9.  
  10. print "<H1>CGI Environment Variables</H1>\n";
  11.  
  12. print "<B>SERVER_SOFTWARE</B> = $ENV{'SERVER_SOFTWARE'}<BR>\n";
  13. print "<B>SERVER_NAME</B> = $ENV{'SERVER_NAME'}<BR>\n";
  14. print "<B>SERVER_PORT</B> = $ENV{'SERVER_PORT'}<BR>\n";
  15. print "<B>GATEWAY_INTERFACE</B> = $ENV{'GATEWAY_INTERFACE'}<BR>\n";
  16. print "<B>SCRIPT_NAME</B> = $ENV{'SCRIPT_NAME'}<BR>\n";
  17. print "<B>REMOTE_ADDR</B> = $ENV{'REMOTE_ADDR'}<BR>\n";
  18. print "<B>REMOTE_HOST</B> = $ENV{'REMOTE_HOST'}<BR>\n";
  19. print "<B>HTTP_USER_AGENT</B> = $ENV{'HTTP_USER_AGENT'}<BR>\n";
  20. print "<B>HTTP_ACCEPT</B> = $ENV{'HTTP_ACCEPT'}<BR>\n";
  21.  
  22. print "</BODY></HTML>\n";
  23. exit(0);
  24.  
  25. ##
  26. ## end of test-env.pl
  27. ##
  28.